unit uItems;

interface

type
  TItems = Record
    name : string;
    buy_value: integer;
  End;

var
  HP: TItems = (name : ('Leben'); buy_value : (15));

implementation

end.
